home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / amag / 12b92.lha / Tips & Tricks / Busy Pointer (C, BASIC) / Clockpointer.bas < prev    next >
BASIC Source File  |  1992-11-02  |  897b  |  45 lines
  1. DECLARE FUNCTION AllocMem&() LIBRARY
  2. LIBRARY "exec.library"
  3. LIBRARY "intuition.library"
  4. ' Busy-Pointer setzen
  5. GOSUB SetBusyPtr
  6. FOR i=1 TO 100
  7.  LOCATE 2,2
  8.  PRINT "Bitte nicht stören!"
  9.  LOCATE 3,2
  10.  PRINT "Ich muß bis 100 zählen";i
  11. NEXT i
  12.  PRINT " Hurra, es ist geschafft!" 
  13. ' Alten Pointer zurueckholen
  14. GOSUB ClearBusyPtr
  15. LIBRARY CLOSE
  16. END
  17.  
  18. SetBusyPtr:
  19.  ptr&=AllocMem&(78,65538&)
  20.  FOR i=0 TO 39
  21.   READ byte%
  22.   POKEW ptr&+2*i,byte%
  23.  NEXT i
  24.  SetPointer& WINDOW(7),ptr&,18,16,1,1
  25. RETURN
  26. ClearBusyPtr:
  27.  ClearPointer WINDOW(7)
  28.  FreeMem& buffer&,78
  29. RETURN
  30. ' Image-DATA
  31. DATA 0,0
  32. DATA &H0000,&H0000,&H0400,&H07C0
  33. DATA &H0000,&H07C0,&H0100,&H0380
  34. DATA &H0000,&H07E0,&H07C0,&H1FF8
  35. DATA &H1FF0,&H3FEC,&H3FF8,&H7FDE
  36. DATA &H3FF8,&H7FBE,&H7FFC,&HFF7F
  37. DATA &H7EFC,&HFFFF,&H7FFC,&HFFFF
  38. DATA &H3FF8,&H7FFE,&H3FF8,&H7FFE
  39. DATA &H1FF0,&H3FFC,&H07C0,&H1FF8
  40. DATA &H0000,&H07E0,&H0000,&H0000
  41. DATA &H0000,&H03F2
  42. DATA 0,0
  43.  
  44.  
  45.